home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / SHARED.DIR / 01043_Script_1043 < prev    next >
Text File  |  1995-11-21  |  2KB  |  106 lines
  1. on fadeSoundChan chan
  2.   global gVolume
  3.   -- Be sure to update copy that lives in INTRO2.DIR
  4.   
  5.   if not soundBusy(chan) then exit
  6.   
  7.   if the multiSound then
  8.     
  9.     set v = the volume of sound chan
  10.     
  11.     repeat while v > 0
  12.       set v = v / 2
  13.       set the volume of sound chan = v
  14.       set t = the ticks + 30
  15.       repeat while the ticks < t 
  16.         go to the frame
  17.       end repeat
  18.     end repeat
  19.     
  20.   else
  21.     
  22.     sound fadeOut chan,120
  23.     set t = the ticks + 360 -- dmd this long?
  24.     repeat while the ticks < t
  25.       updateStage  
  26.     end repeat
  27.     
  28.   end if
  29.   
  30.   sound stop chan
  31.   set the volume of sound chan = gVolume
  32. end fadeSoundChan
  33.  
  34. on doCredits
  35.   global gCreditReturnM, gCreditReturnF, gCom, gNavPalette
  36.   global gCurHist, gCurData, gOldCom, gFiorellaOnStage
  37.   
  38.   hideOverheadMenu
  39.   updateStage
  40.   
  41.   if gFiorellaOnStage then stopHelp
  42.   
  43.   if the movie = "TOUR.DIR" then stopTour
  44.   else if the movie = "MOVIES.DIR" then stopMovies
  45.   
  46.   if the type of sprite 10 = 16 then
  47.     set cn = the castNum of sprite 10
  48.     if the castType of cast cn = #digitalVideo then set the movieRate of sprite 10 = 0
  49.   end if
  50.   
  51.   
  52.   set gOldCom = gCom
  53.   
  54.   if gCom then 
  55.     if gCurHist=0 then unGrayHist
  56.     if gCurData=0 then unGrayData
  57.     
  58.     go to objectLabel()
  59.     set the visibility of sprite 22 = 0
  60.     set the visibility of sprite 23 = 0
  61.     set the visibility of sprite 24 = 0
  62.     set the visibility of sprite 25 = 0
  63.     tell gNavPalette to lCloseNavPalette(1)
  64.   else
  65.     puppetTransition 52,8,8
  66.   end if
  67.   
  68.   set gCreditReturnF = the frame
  69.   set gCreditReturnM = the movie
  70.   
  71.   cursor 4
  72.   
  73.   go to frame "Black Frame"
  74.   
  75.   if gCom then tell gNavPalette to lCloseNavPalette(1)
  76.   
  77.   if the machineType <> 256 then
  78.     go to movie "CREDITS.DIR"
  79.   else
  80.     go to movie "CREDITSP.DIR"
  81.   end if
  82.   
  83.   cursor -1  
  84. end doCredits
  85.  
  86. on endCredits
  87.   global gCreditReturnM, gCreditReturnF, gCom, gNavPalette
  88.   global gOldCom
  89.   
  90.   cursor 4
  91.   
  92.   go to frame 1
  93.   
  94.   if not gOldCom then 
  95.     go to frame "Black Frame" of movie gCreditReturnM
  96.     
  97.     go to frame gCreditReturnF
  98.   else
  99.     go to frame gCreditReturnF of movie gCreditReturnM
  100.   end if
  101.   
  102.   --if gCom then tell gNavPalette to lOpenNavPalette
  103.   cursor -1
  104.   
  105.   
  106. end endCredits